home *** CD-ROM | disk | FTP | other *** search
/ Floppyshop 2 / Floppyshop - 2.zip / Floppyshop - 2.iso / diskmags / 5791-.end / dmg-6311 / stos_tut.bas / pacworm1.bas (.txt) < prev   
Atari STOS Basic  |  1998-03-24  |  30KB  |  85 lines
  1. 10 REM _cpuspeed 20
  2. 100 VARNAME
  3. 110 INK
  4. 120 VARNAME
  5. 130 VARNAME
  6. 140 VARNAME
  7. 150 FOR
  8. 160 COLOUR
  9. 170 VARNAME
  10. 180 IF
  11. 190 IF
  12. 20 DIM
  13. 200 IF
  14. 210 IF
  15. 220 IF
  16. 230 IF
  17. 240 IF
  18. 250 IF
  19. 260 IF
  20. 270 REM ****************** ? magic square ******************************
  21. 280 IF
  22. 290 IF
  23. 30 REM music bank 6 = dead mus 3=short death 3=music
  24. 300 IF
  25. 310 IF
  26. 320 REM **************** check limits **************************************
  27. 330 IF
  28. 340 IF
  29. 350 REM *********** CHOOSE A NUMBER ******************************************
  30. 360 IF
  31. 370 IF
  32. 380 REM ********** CHECK SPOTS ************************************************
  33. 390 LOCATE
  34. 40 MODE
  35. 400 IF
  36. 410 FOR
  37. 420 NEXT
  38. 430 GOSUB
  39. 440 REM ***************** redraw spots ***************************
  40. 450 FOR
  41. 460 IF
  42. 470 NEXT
  43. 480 REM ************************ have all spots been collected ****************
  44. 490 IF
  45. 50 WINDOPEN
  46. 500 QWINDOW
  47. 510 VARNAME
  48. 520 VARNAME
  49. 530 VARNAME
  50. 540 GOTO
  51. 550 IF
  52. 560 IF
  53. 570 IF
  54. 580 IF
  55. 590 IF
  56. 60 WINDOPEN
  57. 600 IF
  58. 610 IF
  59. 620 IF
  60. 630 IF
  61. 640 IF
  62. 650 PEN
  63. 660 FOR
  64. 670 NEXT
  65. 680 VARNAME
  66. 690 REM collision*****************************************************
  67. 70 VARNAME
  68. 700 FOR
  69. 710 WAIT
  70. 720 REPEAT
  71. 730 LOCATE
  72. 740 LOCATE
  73. 750 INC
  74. 760 REM loke spots collected
  75. 770 FOR
  76. 780 IF
  77. 790 NEXT
  78. 80 VARNAME
  79. 800 FOR
  80. 810 PRINT
  81. 820 REM magic square***************
  82. 830 IF
  83. 840 RETURN
  84. 90 VARNAME
  85.